home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / DESIGN / HELPCONV.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-30  |  2KB  |  87 lines
  1. program helpconv;
  2. Uses
  3.    Crt;
  4.  
  5. {
  6.  Converts 65 char per line help file over to a file of records
  7.  so it can be used with programs written by DESIGN.COM.
  8. }
  9. type
  10.    string65 = string[65];
  11.    recs = record
  12.       line : string65;
  13.    end;
  14.  
  15. const
  16.    filenameout = 'HELP.TXT';
  17.  
  18. var
  19.    diskfilein : text;
  20.    rec : recs;
  21.    diskfileout : file of recs;
  22.    filenamein : string65;
  23.    line : string65;
  24.  
  25. function Exist(Filename:string65):boolean;
  26. VAR infile:text;
  27.  
  28. Begin                        { Find out if the file exists }
  29.    Assign(Infile,Filename);
  30.    {$I-}
  31.    Reset(infile);
  32.    {$I+}
  33.    Exist := (IOresult = 0);
  34.    close(infile)
  35. end;
  36.  
  37. function uppercase(line:String65):String65;
  38. var
  39.    i : integer;
  40.    ch : char;
  41.    temp : string65;
  42.  
  43. begin
  44.    temp := '';
  45.    for i := 1 to length(line) do
  46.    begin
  47.       ch  := line[i];
  48.       ch := upcase(ch);
  49.       temp := concat(temp,ch);
  50.    end;
  51.    uppercase := temp
  52. end;
  53.  
  54. begin { HelpConv }
  55.    clrscr;
  56.    gotoxy(20,10);
  57.    write('Filename to convert --> ');
  58.    readln(filenamein);
  59.    if not exist(filenamein) then
  60.    begin
  61.       gotoxy(20,12);
  62.       write('Filename ',filenamein,' not found.');
  63.       halt
  64.    end;
  65.    filenamein := uppercase(filenamein);
  66.       if filenamein = filenameout then
  67.       begin
  68.          gotoxy(20,12); clreol;
  69.          write(#7,'Both filenames can''t have the same name.');
  70.          halt
  71.       end;
  72.    assign(diskfilein,filenamein);
  73.    reset(diskfilein);
  74.    assign(diskfileout,filenameout);
  75.    rewrite(diskfileout);
  76.    while not eof(diskfilein) do
  77.    begin
  78.       readln(diskfilein,line);
  79.       rec.line := line;
  80.       write(diskfileout,rec)
  81.    end;
  82.    close(diskfilein);
  83.    close(diskfileout);
  84.    gotoxy(20,15);
  85.    write(filenameout,' has been created.');
  86. end.
  87.